home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / TREE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1995-02-17  |  623 b   |  30 lines
  1. 10  'TREE - directory tree structure - 28 JUN 94 rev. 17 FEB 95
  2. 20  CLS:KEY OFF
  3. 30  IF EX$=""THEN EX$="EXIT"
  4. 40  UL$=STRING$(80,205)
  5. 50  COLOR 7,0,0
  6. 60  PRINT " DIRECTORY TREE"
  7. 70  PRINT UL$;
  8. 80  PRINT " Press letter in < > to select Drive:"
  9. 90  PRINT UL$;
  10. 100  PRINT "  < a >  Drive A:
  11. 110  PRINT "  < b >  Drive B:
  12. 120  PRINT "  < c >  Drive C:
  13. 130  PRINT
  14. 140  PRINT "  < d >  Drive D:
  15. 150  PRINT "  < e >  Drive E:
  16. 160  PRINT "  < f >  Drive F:
  17. 170  PRINT
  18. 180  PRINT "  < g >  Drive G:
  19. 190  PRINT "  < h >  Drive H:
  20. 200  PRINT "  < i >  Drive I:
  21. 210  Z$=INKEY$:IF Z$=""THEN 210
  22. 220  D$="tree "+Z$+":\|more"
  23. 230  CLS
  24. 240  SHELL D$
  25. 250  LOCATE 25,28
  26. 260  COLOR 15,1
  27. 270  PRINT " ......PRESS ANY KEY......";
  28. 280  IF INKEY$=""THEN 280
  29. 290  COLOR 7,0:CLS:RUN EX$
  30.